home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / maximus / maxkit20.zip / MAXBDL20.ZIP / MAXBDL20.MEX next >
Text File  |  1996-02-06  |  4KB  |  107 lines
  1. // ==========================================================================
  2. // File: MAXBDL20.MEX
  3. // Desc: Displays a list of users birthdays to con, file or both.
  4. // Copyright 1995 1996 by Gerry Ellison.  All rights reserved.
  5. // Copyright 1995 by Lanius Corporation.  All rights reserved.
  6. // $Id: maxbdl20.mex 1.8 12/05/1995 24:08:00 gre Exp $
  7. // --------------------------------------------------------------------------
  8.  
  9. #define MNU_PRESS_ENTER         106
  10.  
  11. #include <max.mh>
  12. #include <intpad.mh>
  13.  
  14. int main(string: argv) {                         // begin  birthday list
  15.   int: ok,cy,chh, cnt;
  16.  
  17.   char: fd, nonstop;
  18.  
  19.   string: cm,cd,bbs,LCB,LMB,YM,YB,GR;
  20.  
  21.   string: line, line2, bdlpath;
  22.  
  23.   struct _usr: u;
  24.  
  25.   struct _stamp: now;
  26.  
  27. //            CHANGE THIS FOR YOUR BBS.
  28. // --------------------------------------------------------------------------
  29.   bdlpath := "C:\\Max\\Misc\\Birthlst.bbs"; // path and name of birthday list
  30.   bbs := " The Mountain Top BBS! ";  // put your bbs name HERE!
  31. // ATT.  │                       │NO longer then this!
  32. // --------------------------------------------------------------------------
  33.      remove(bdlpath);                            // deletes Birthlst.bbs
  34.  
  35.   timestamp(now);
  36.      cm:=intpadleft(now.date.month,2,'0');
  37.      cd:=intpadleft(now.date.day,2,'0');
  38.      cy:=(now.date.year)+1980;
  39.  
  40.   reset_more(nonstop);
  41.  
  42.  {
  43.     LCB:="\x16\x01\x10\x9B";
  44.     LMB:="\x16\x01\x10\x9D";
  45.     YM:="\x16\x01\x5E";
  46.     YB:="\x16\x01\x1e";
  47.     GR:="\x16\x01\x07";
  48.  
  49.     print("\fMAXBDL18\n");
  50.  
  51. line := "\f\n   "+LCB+"┌───────────────────────────────┬────────────────────────────────────────┐"+GR+"\n"+
  52.    "   "+LCB+"│"+YM+"░▒▓█"+bbs+"█▓▒░"+LCB+"│              "+YB+cm+"-"+cd+"-"+itostr(cy)+LCB+"                │"+GR+"\n"+
  53.    "   "+LCB+"├───────────────────────────────┴────────────────────────────────────────┤"+GR+"\n"+
  54.    "   "+LCB+"│                           "+YB+"Congratulations to"+LCB+"                           │"+GR+"\n"+
  55.    "   "+LCB+"│         "+bbs+" users who have birthdays today:        │"+GR+"\n"+
  56.    "   "+LCB+"├────────────────────────────────────────────────────────────────────────┤"+GR+"\n"+
  57.    "   "+LCB+"│                                                                        │"+GR;
  58.  
  59. //    if (argv <> "")
  60. //        print("Compiling C:\Max\Misc\Maxbdl18.bbs.\n");
  61.  
  62.     if (argv = "")
  63.         print("\n"+line+"\n");
  64.     else
  65.         print("Compiling C:\Max\Misc\Maxbdl18.bbs.\n");
  66.  
  67.   {
  68.    for (ok := userfindopen("","",u);
  69.        ok AND do_more(nonstop, COL_CYAN);
  70.        ok := userfindnext(u))
  71.  
  72.   if(substr(u.dob,6,2)+substr(u.dob,9,2) = cm+cd)
  73.     {
  74.       cnt := cnt+1;
  75.  
  76.       if (cnt = 1) {
  77.  fd := open(bdlpath, IOPEN_CREATE | IOPEN_WRITE);
  78.          writeln(fd, "");
  79.          writeln(fd,line);
  80.          }
  81.  
  82.   line2 :="   "+LCB+"│        "+strpad(u.name,28,' ')+strpad(u.city,36,' ')+"│"+GR+"\n";
  83.     if (argv = "")
  84.         print(line2);
  85.  
  86.   line2 :="   "+LCB+"│        "+strpad(u.name,28,' ')+strpad(u.city,36,' ')+"│"+GR;
  87.    writeln(fd, line2);
  88.     }
  89.   }
  90. line :="   "+LCB+"│                                                                        │"+GR+"\n"+
  91.   "   "+LCB+"╚════════════════════════════════════════════════════════════════════════╝"+GR+"\n";
  92.  
  93.     if (argv = "")
  94.         print(line+"\n");
  95.  
  96.       if (cnt >= 1) {
  97.           writeln(fd,line);
  98. line := "   â";
  99.           writeln(fd,line);
  100.           close(fd);
  101.          }
  102.  
  103.       if (argv = "")
  104.           menu_cmd(MNU_PRESS_ENTER,"");
  105.  }
  106. }                                                // end  birthday list
  107.